#!/usr/bin/perl
print "sequences\tbasePairs\n";
while(<>){if(/>/){$tot++}else{chomp;$sum+=length($_);}}
print $tot."\t".$sum."\n";
